﻿Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Data
Imports System.Data.SqlClient
Imports DoAnQuanLyBanHang1065043_1065007.DoAnQuanLyBanHang.General

Namespace DoAnQuanLyBanHang.DTO
    Public Class TonKhoData
        Private m_TonKhoData As New DataService()
        Public Function LayTonKho() As DataTable
            Dim cmd As New SqlCommand("SELECT * FROM Ton_Kho")
            m_TonKhoData.Load(cmd)
            Return m_TonKhoData
        End Function
        Public Function LayDSTonKhoTheoThang(thang As Integer, nam As Integer) As DataTable
            Dim cmd As New SqlCommand("SELECT MH.MaMH, TK.[Mã Mặt Hàng], Tk.[Tên Mặt Hàng], TK.Tháng, TK.Năm, TK.[Tồn Kho] FROM Ton_Kho TK INNER JOIN Mat_Hang MH ON MH.MaMH = TK.[Mã Mặt Hàng] AND MH.TenMH = TK.[Tên Mặt Hàng] WHERE TK.Tháng = @Tháng AND TK.Năm = @Năm")
            cmd.Parameters.Add("Tháng", SqlDbType.Int).Value = thang
            cmd.Parameters.Add("Năm", SqlDbType.Int).Value = nam
            m_TonKhoData.Load(cmd)
            Return m_TonKhoData
        End Function
    End Class
End Namespace
